/ Merciful 1 / Merciful - Disc 1.iso / software / m / math_vision / mathvisionv2.1b.dms / in.adf / HookExamples / Parametric / Collideiscope.f

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 4f 52 4d 00 00 04 2c | 49 4c 42 4d 43 48 52 53 |FORM...,|ILBMCHRS|
|00000010| 00 00 04 20 58 6d 69 6e | 20 2d 31 2e 37 31 36 37 |... Xmin| -1.7167|
|00000020| 31 33 0a 58 6d 61 78 20 | 31 2e 36 32 37 35 31 31 |13.Xmax |1.627511|
|00000030| 0a 59 6d 69 6e 20 2d 31 | 2e 31 37 33 30 38 33 0a |.Ymin -1|.173083.|
|00000040| 59 6d 61 78 20 31 2e 31 | 36 35 35 36 34 0a 43 6f |Ymax 1.1|65564.Co|
|00000050| 6e 74 6f 75 72 41 6e 63 | 68 6f 72 20 2d 32 2e 30 |ntourAnc|hor -2.0|
|00000060| 30 30 30 30 30 0a 43 6f | 6e 74 6f 75 72 57 69 64 |00000.Co|ntourWid|
|00000070| 74 68 20 30 2e 30 36 32 | 35 30 30 30 30 0a 43 6c |th 0.062|50000.Cl|
|00000080| 69 70 48 69 67 68 20 2d | 32 2e 30 30 30 30 30 30 |ipHigh -|2.000000|
|00000090| 0a 43 6c 69 70 4c 6f 77 | 20 2d 32 2e 30 30 30 30 |.ClipLow| -2.0000|
|000000a0| 30 30 0a 46 30 20 30 3d | 63 61 73 65 28 63 6f 75 |00.F0 0=|case(cou|
|000000b0| 6e 74 3d 30 2c 66 61 2c | 20 63 6f 75 6e 74 3c 35 |nt=0,fa,| count<5|
|000000c0| 30 30 2c 66 62 2c 20 31 | 20 29 20 20 20 20 20 20 |00,fb, 1| )      |
|000000d0| 20 20 20 22 43 6f 6e 74 | 72 6f 6c 20 69 74 65 72 |   "Cont|rol iter|
|000000e0| 61 74 69 6f 6e 0a 46 41 | 20 6e 75 6c 6c 28 66 62 |ation.FA| null(fb|
|000000f0| 2c 20 73 65 74 28 61 2c | 30 29 2c 73 65 74 28 72 |, set(a,|0),set(r|
|00000100| 2c 31 29 20 73 65 74 28 | 69 2c 70 69 2f 31 2e 39 |,1) set(|i,pi/1.9|
|00000110| 39 29 2c 20 73 65 74 28 | 64 2c 2e 39 39 35 29 20 |9), set(|d,.995) |
|00000120| 29 20 22 49 6e 69 74 69 | 61 6c 20 76 61 6c 75 65 |) "Initi|al value|
|00000130| 73 0a 46 42 20 6e 75 6c | 6c 28 66 63 28 61 2b 69 |s.FB nul|l(fc(a+i|
|00000140| 2c 72 2a 64 29 2c 66 69 | 28 72 2a 63 6f 73 28 61 |,r*d),fi|(r*cos(a|
|00000150| 29 2c 72 2a 73 69 6e 28 | 61 29 29 20 29 20 20 20 |),r*sin(|a)) )   |
|00000160| 20 20 22 43 6f 6d 70 75 | 74 65 20 6e 65 77 20 76 |  "Compu|te new v|
|00000170| 61 6c 75 65 73 0a 46 43 | 20 6e 75 6c 6c 28 20 73 |alues.FC| null( s|
|00000180| 65 74 28 61 2c 61 31 29 | 2c 20 73 65 74 28 72 2c |et(a,a1)|, set(r,|
|00000190| 61 32 29 20 29 20 20 20 | 20 20 20 20 20 20 20 20 |a2) )   |        |
|000001a0| 20 20 20 20 20 20 22 53 | 65 74 20 6e 65 77 20 76 |      "S|et new v|
|000001b0| 61 6c 75 65 73 0a 46 44 | 20 0a 46 45 20 0a 46 46 |alues.FD| .FE .FF|
|000001c0| 20 0a 46 47 20 0a 46 48 | 20 0a 46 49 20 6e 75 6c | .FG .FH| .FI nul|
|000001d0| 6c 28 20 64 72 61 77 28 | 61 31 2c 61 32 2c 69 66 |l( draw(|a1,a2,if|
|000001e0| 28 63 6f 75 6e 74 2c 20 | 61 2f 28 32 2a 70 69 29 |(count, |a/(2*pi)|
|000001f0| 2c 20 30 29 29 20 29 22 | 64 69 73 70 6c 61 79 0a |, 0)) )"|display.|
|00000200| 43 6f 6d 6d 65 6e 74 31 | 20 43 6f 6c 6c 69 64 65 |Comment1| Collide|
|00000210| 69 73 63 6f 70 65 20 20 | 31 39 2d 41 70 72 2d 39 |iscope  |19-Apr-9|
|00000220| 30 20 64 6f 75 67 20 48 | 6f 75 63 6b 0a 43 6f 6d |0 doug H|ouck.Com|
|00000230| 6d 65 6e 74 32 20 43 68 | 61 6e 67 65 20 74 68 65 |ment2 Ch|ange the|
|00000240| 20 76 61 6c 75 65 73 20 | 6f 66 20 49 20 61 6e 64 | values |of I and|
|00000250| 20 44 20 69 6e 20 46 41 | 20 74 6f 20 65 78 70 6c | D in FA| to expl|
|00000260| 6f 72 65 20 64 69 66 66 | 65 72 65 6e 74 20 65 66 |ore diff|erent ef|
|00000270| 66 65 63 74 73 0a 43 6f | 6d 6d 65 6e 74 33 20 41 |fects.Co|mment3 A|
|00000280| 3d 61 6e 67 6c 65 2c 20 | 49 3d 49 6e 63 72 65 6d |=angle, |I=Increm|
|00000290| 65 6e 74 20 66 6f 72 20 | 61 6e 67 6c 65 2c 20 52 |ent for |angle, R|
|000002a0| 3d 72 61 64 69 75 73 2c | 20 44 3d 64 65 6c 74 61 |=radius,| D=delta|
|000002b0| 20 66 6f 72 20 52 61 64 | 69 75 73 0a 4f 76 65 72 | for Rad|ius.Over|
|000002c0| 70 6c 6f 74 20 46 0a 55 | 73 65 42 61 63 6b 67 72 |plot F.U|seBackgr|
|000002d0| 6f 75 6e 64 20 46 0a 4d | 6f 64 75 6c 6f 20 31 36 |ound F.M|odulo 16|
|000002e0| 0a 43 6f 6d 70 6c 65 74 | 65 20 30 0a 43 6f 6e 74 |.Complet|e 0.Cont|
|000002f0| 6f 75 72 53 61 6d 70 6c | 65 44 65 6c 74 61 20 30 |ourSampl|eDelta 0|
|00000300| 0a 43 6f 6e 74 6f 75 72 | 53 63 61 6c 69 6e 67 20 |.Contour|Scaling |
|00000310| 46 0a 43 6f 6e 74 6f 75 | 72 4e 6f 69 73 79 20 54 |F.Contou|rNoisy T|
|00000320| 0a 43 6f 6e 74 6f 75 72 | 43 6c 69 70 70 69 6e 67 |.Contour|Clipping|
|00000330| 20 46 0a 42 6f 78 48 65 | 69 67 68 74 20 30 0a 42 | F.BoxHe|ight 0.B|
|00000340| 6f 78 4d 61 67 6e 69 66 | 69 63 61 74 69 6f 6e 20 |oxMagnif|ication |
|00000350| 30 0a 58 76 69 65 77 70 | 6f 69 6e 74 20 30 0a 5a |0.Xviewp|oint 0.Z|
|00000360| 76 69 65 77 70 6f 69 6e | 74 20 30 0a 50 65 72 73 |viewpoin|t 0.Pers|
|00000370| 70 65 63 74 69 76 65 53 | 61 6d 70 6c 65 44 65 6c |pectiveS|ampleDel|
|00000380| 74 61 20 30 0a 50 65 72 | 73 70 65 63 74 69 76 65 |ta 0.Per|spective|
|00000390| 20 54 0a 48 69 64 64 65 | 6e 5f 4c 69 6e 65 73 20 | T.Hidde|n_Lines |
|000003a0| 54 0a 43 6c 69 70 54 6f | 42 6f 78 20 54 0a 44 72 |T.ClipTo|Box T.Dr|
|000003b0| 61 77 42 6f 78 20 54 0a | 43 6f 6c 6f 72 54 6f 70 |awBox T.|ColorTop|
|000003c0| 20 54 0a 43 6f 6c 6f 72 | 42 6f 74 74 6f 6d 20 46 | T.Color|Bottom F|
|000003d0| 0a 53 69 6d 70 6c 65 53 | 61 6d 70 6c 65 44 65 6c |.SimpleS|ampleDel|
|000003e0| 74 61 20 30 0a 53 69 6d | 70 6c 65 4e 6f 69 73 79 |ta 0.Sim|pleNoisy|
|000003f0| 20 54 0a 53 69 6d 70 6c | 65 47 72 61 64 69 65 6e | T.Simpl|eGradien|
|00000400| 74 31 20 46 0a 53 69 6d | 70 6c 65 47 72 61 64 69 |t1 F.Sim|pleGradi|
|00000410| 65 6e 74 32 20 46 0a 53 | 69 6d 70 6c 65 50 65 6e |ent2 F.S|implePen|
|00000420| 20 32 0a 50 6c 6f 74 4d | 6f 64 65 20 43 6f 6e 74 | 2.PlotM|ode Cont|
|00000430| 6f 75 72 0a             |                         |our.    |        |
+--------+-------------------------+-------------------------+--------+--------+